 x:byte;
 y:char;
 f:file of char;
begin
 x:=2+2*2;
 print "2+2*2=",x;
 print;
 open f,"test.tst";
  for x:=1 to 10 do
   begin
    print x," Введите символ: ";
    input y;
    print f,y;
   end
 close f;
 print;
 open f,"test.tst";
 print "Введенные символы:";
 for x:=1 to 10 do
  begin
   input f,y;
   print y;
  end
 close f;
end;
